home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / videomgt.zip / ADD.PRG < prev    next >
Text File  |  1991-11-23  |  823b  |  37 lines
  1. && ADD RECORDS ===> ADD.PRG
  2. SET TALK OFF
  3. MADD=" "
  4. DO WHILE .T.
  5.    CLEAR
  6.    @ 3,25 SAY "ADD RECORDS TO FILES"
  7.    @ 5,10 TO 15,60
  8.    @ 7,25 SAY "1. CUSTOMER FILE"
  9.    @ 9,25 SAY "2. FILM FILE"
  10.    @ 11,25 SAY "3. SALES FILE"
  11.    @ 13,25 SAY "4. EXIT"
  12.    @ 16,25
  13.    WAIT "                         PLEASE ENTER THE NUMBER  " TO MADD
  14.    CLEAR
  15.    @ 10,36 SAY "W A I T"
  16.    DO CASE
  17.       CASE MADD="1"
  18.          DO ADDCUST
  19.       CASE MADD="2"
  20.          DO ADDFILM
  21.       CASE MADD="3"
  22.          DO ADDSALES
  23.       CASE MADD="4"
  24.          EXIT
  25.       OTHERWISE
  26.          @ 10,5 SAY "              THE NUMBER ENTERED IS INCORRECT         "
  27.          @ 11,10
  28.          WAIT "                   PLEASE PUSH ANY KEY TO CONTINUE  "
  29.          CLEAR
  30.    ENDCASE
  31.       LOOP
  32. ENDDO
  33. CLEAR
  34. @10,36 SAY "W A I T"
  35. RETURN
  36.    
  37.